|
200
|
I've noticed that the toolbar is cut when perform scrolling. Is it possible to change that shape
with ToolBar1 do
begin
ArrangeItemsAs := Integer(EXTOOLBARLib_TLB.exArrangeItemsScroll) Or Integer(EXTOOLBARLib_TLB.exArrangeItemsHorizontal);
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhIDhAxGAyg0HG0Og40HIyiwAGY1GMJiYAf8jAEhhUnAAyhEqg8hk0oAsIjYxHAwmYwHEbGY2GEhGkMlFBlAOhAJhEuoUHjcbGQ1EtMp0hGsbGo' +
'wEsvpNBlkpo9ZoNQp8rqMIqdkqwCr1ZrdbrFpsFvs1hg9VuVCjdBA0IoElhFog6zbDykUkhsPms3nMInc9hA0mNpoVrruQpdiutNq9kqlWtuQg+Sluewufp1gqWbEt+0' +
'UK0F81YAuGkut01F3lF7vF6yYA1Ujf4ATjNd8KmeHh84n1MGI1zt9rN7vOhg+9knB4ejAE0m3HHHJlfL1VB5sH6G76m/63Ey2xAG0uMbkIbUDh3me1vjoV7vYIhBQNIx' +
'joOo5DKGKQj8hAhCbA6ThshAUN0g7or4DCFCQ14AHATIAHkbBZt83xxFCDcMw3DsQRFEINm8SQAHydpuxTEh4GkUzfHATYARnGsPn+d5mk5HkPv4g7/QBAQyhk1UFgBB' +
'MloTBqDwe8iEQkg0KITCzXyDDhZxI30uRJFMXG7FYARTFLfR1MMRSDNUcSC30fE5IYASLAMBhmjZDQQJs9wZB0qQhCaFChC81g3M8RRuAE5IPMENRjDUdN8g8vw7MtJx' +
'5SseTHODCTpO0jp+hE/SZPqUSgAEpABCS9ytQkLyDTtPU2f8uUxGkg0dDtDxlXLCUPRMRxxRoAHW2wAICA==');
Background[EXTOOLBARLib_TLB.exScrollViewBorder] := $1000000;
with Items do
begin
BackColor := $808080;
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Padding := '22,0,0,0';
Add('Radio 1',Null,Null).Radio := True;
Add('Radio 2',Null,Null).Radio := True;
with Add('Radio 3',Null,Null) do
begin
Radio := True;
Checked := True;
end;
end;
Checked := True;
end;
Add('',Null,Null).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' +
'][chk=1])';
end;
Refresh();
end
|
|
199
|
I've noticed that the toolbar is cut when perform scrolling. Is it possible to prevent that
with ToolBar1 do
begin
ArrangeItemsAs := Integer(EXTOOLBARLib_TLB.exArrangeItemsScroll) Or Integer(EXTOOLBARLib_TLB.exArrangeItemsHorizontal);
Background[EXTOOLBARLib_TLB.exScrollViewBorder] := $ffffffff;
with Items do
begin
BackColor := $f0f0f0;
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Padding := '22,0,0,0';
Add('Radio 1',Null,Null).Radio := True;
Add('Radio 2',Null,Null).Radio := True;
with Add('Radio 3',Null,Null) do
begin
Radio := True;
Checked := True;
end;
end;
Checked := True;
end;
Add('',Null,Null).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' +
'][chk=1])';
end;
Refresh();
end
|
|
198
|
How can I scroll the items within the toolbar
with ToolBar1 do
begin
ArrangeItemsAs := Integer(EXTOOLBARLib_TLB.exArrangeItemsScroll) Or Integer(EXTOOLBARLib_TLB.exArrangeItemsHorizontal);
with Items do
begin
BackColor := $f0f0f0;
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Padding := '22,0,0,0';
Add('Radio 1',Null,Null).Radio := True;
Add('Radio 2',Null,Null).Radio := True;
with Add('Radio 3',Null,Null) do
begin
Radio := True;
Checked := True;
end;
end;
Checked := True;
end;
Add('',Null,Null).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' +
'][chk=1])';
end;
Refresh();
end
|
|
197
|
How can I show an item aligned to the bottom size of the toolbar
with ToolBar1 do
begin
ArrangeItemsAs := EXTOOLBARLib_TLB.exArrangeItemsHorizontal;
Items.ToString := 'C1[chk],C2[chk]';
with Items.Add('R',Null,Null) do
begin
Check := True;
Checked := True;
Y := 'height - iheight';
end;
end
|
|
196
|
How can I show an item aligned to the right of the toolbar
with ToolBar1 do
begin
ArrangeItemsAs := EXTOOLBARLib_TLB.exArrangeItemsHorizontal;
Items.ToString := 'C1[chk],C2[chk]';
with Items.Add('R',Null,Null) do
begin
Check := True;
Checked := True;
X := 'width - iwidth';
end;
end
|
|
195
|
How can I arrange horizontally the items on the toolbar
with ToolBar1 do
begin
ArrangeItemsAs := EXTOOLBARLib_TLB.exArrangeItemsHorizontal;
with Items do
begin
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Padding := '22,0,0,0';
Add('Radio 1',Null,Null).Radio := True;
Add('Radio 2',Null,Null).Radio := True;
with Add('Radio 3',Null,Null) do
begin
Radio := True;
Checked := True;
end;
end;
Checked := True;
end;
Add('',Null,Null).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' +
'][chk=1])';
end;
Refresh();
end
|
|
194
|
How can I display the drop down panel to a specified location only
with ToolBar1 do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
with Items do
begin
with Add('Popup',OleVariant(2),OleVariant(100)) do
begin
ShowPopupArrow := False;
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
ShowPopupOffset := '0:screen,0:screen';
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
end;
Refresh();
end
|
|
193
|
How can I displays the drop down bellow the control, rather than item itself
with ToolBar1 do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
with Items do
begin
with Add('Popup <b>1',OleVariant(2),OleVariant(100)) do
begin
ShowPopupArrow := False;
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
ShowPopupOffset := '0,0:control';
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
with Add('Popup <b>2',OleVariant(2),OleVariant(200)) do
begin
GroupPopup := EXTOOLBARLib_TLB.exGroupPopup;
with Items do
begin
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
Add('Item 4',Null,Null);
end;
end;
end;
Refresh();
end
|
|
192
|
How can I change the visual appearance of the progress bar
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($104)] := $1000000;
with Items do
begin
with Add('Progress',Null,Null) do
begin
AllowEdit := EXTOOLBARLib_TLB.exItemEditProgress;
EditWidth := -128;
EditValue := OleVariant(25);
end;
end;
Refresh();
end
|
|
191
|
How can I change the progress's color
with ToolBar1 do
begin
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($104)] := $ff;
with Items do
begin
with Add('Progress',Null,Null) do
begin
AllowEdit := EXTOOLBARLib_TLB.exItemEditProgress;
EditWidth := -128;
EditValue := OleVariant(25);
end;
end;
Refresh();
end
|
|
190
|
I am using the Item.Visible property on False to hide the item, but the editor is still visible
// CheckItem event - Occurs when the user checks the item.
procedure TForm1.ToolBar1CheckItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
with Items.Item[OleVariant(1000)] do
begin
Visible := True;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditReadOnly) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
end;
Refresh();
end
end;
// UncheckItem event - Occurs when the user unchecks the item.
procedure TForm1.ToolBar1UncheckItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
with Items.Item[OleVariant(1000)] do
begin
Visible := False;
AllowEdit := EXTOOLBARLib_TLB.exItemDisableEdit;
end;
Refresh();
end
end;
with ToolBar1 do
begin
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
with Items do
begin
Add('Visible',Null,Null);
with Add('',Null,Null) do
begin
Check := True;
Checked := True;
end;
with Add('Item 2',Null,OleVariant(1000)) do
begin
ItemHeight := 18;
Caption := 'Percent';
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditReadOnly) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(50);
Visible := True;
end;
Add('Visible',Null,Null);
end;
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
end;
end;
Refresh();
end
|
|
189
|
How can I change the color of a disabled item
with ToolBar1 do
begin
with Items do
begin
with Add('Disabled',OleVariant(2),OleVariant(0)) do
begin
ForeColor := $ff;
Items.Add('',Null,Null);
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
ShowPopupArrow := False;
end;
Add('Disabled',Null,Null).Enabled := False;
end;
Refresh();
end
|
|
188
|
Microsoft Windows 8.1 - Ribbon Like
with ToolBar1 do
begin
with Items do
begin
ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
with Item[OleVariant(0)].Items do
begin
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
var_Item3 := Add('New Page',Null,Null);
with var_Item3 do
begin
ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' +
'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
ID := 200;
Caption := 'Page1';
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
with Items.Item[OleVariant(0)] do
begin
var_Item := Items.Add('New Group',Null,Null);
with var_Item do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '<b><font ;14>A';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupEqualWidth) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('R1',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := False;
end;
with Add('R2',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := True;
end;
with Add('R3',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := False;
end;
end;
end;
end;
end;
var_Item1 := Items.Add('New Group',Null,Null);
with var_Item1 do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '<b><font ;14>B';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualHeight) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('C1',Null,Null) do
begin
Check := True;
Checked := True;
end;
with Add('C2',Null,Null) do
begin
Check := True;
Checked := False;
end;
with Add('C3',Null,Null) do
begin
Check := True;
Checked := True;
end;
end;
end;
end;
end;
Items.Add('',OleVariant(0),OleVariant(0)).Padding := '4,0,0,0';
var_Item2 := Items.Add('New Group',Null,Null);
with var_Item2 do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
with Add('',OleVariant(0),Null) do
begin
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSlider);
ItemHeight := 76;
EditBorder := EXTOOLBARLib_TLB.exEditBorderNone;
EditValue := OleVariant(25);
end;
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Button1',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '4,0,0,0';
with Add('Button2',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
Add('Item 6',Null,Null);
end;
end;
end;
end;
with Add('Popup',OleVariant(2),Null) do
begin
Alignment := EXTOOLBARLib_TLB.exCenter;
with Items do
begin
Add('Item 7',Null,Null).Check := True;
Add('Item 8',Null,Null);
with Add('Item 9',OleVariant(2),Null).Items do
begin
Add('Item 10',Null,Null);
Add('Item 11',Null,Null);
Add('Item 12',Null,Null);
end;
end;
end;
end;
end;
end;
end;
end;
end;
var_Item4 := Add('New Page',Null,Null);
with var_Item4 do
begin
ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' +
'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
ID := 300;
Caption := 'Page2';
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
with Items.Item[OleVariant(0)] do
begin
with Items do
begin
with Add('S1',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(25);
end;
with Add('S2',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(50);
end;
with Add('S3',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(75);
end;
end;
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
end;
end;
PopupFlatAppearance := False;
with VisualAppearance do
begin
Add(1,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn');
Add(2,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn');
Add(12,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn');
Add(14,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn');
Add(17,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn');
Add(18,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn');
Add(32,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn');
Add(33,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn');
Add(34,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn');
Add(35,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn');
end;
Appearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
Background[EXTOOLBARLib_TLB.exToolTipAppearance] := Appearance;
SelBackColor := $e000000;
Background[EXTOOLBARLib_TLB.exMenuHotBackColor] := $c000000;
Background[EXTOOLBARLib_TLB.exMenuSelHotBackColor] := $23000000;
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($2)] := $22000000;
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($3)] := $23000000;
Background[EXTOOLBARLib_TLB.exCheckBoxState0] := $20000000;
Background[EXTOOLBARLib_TLB.exCheckBoxState1] := $21000000;
Refresh();
end
|
|
187
|
Microsoft Paint - Ribbon Like
with ToolBar1 do
begin
with Items do
begin
ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
with Item[OleVariant(0)].Items do
begin
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
var_Item3 := Add('New Page',Null,Null);
with var_Item3 do
begin
ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' +
'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
ID := 200;
Caption := 'Page1';
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
with Items.Item[OleVariant(0)] do
begin
var_Item := Items.Add('New Group',Null,Null);
with var_Item do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '<b><font ;14>A';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupEqualWidth) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('R1',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := False;
end;
with Add('R2',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := True;
end;
with Add('R3',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := False;
end;
end;
end;
end;
end;
var_Item1 := Items.Add('New Group',Null,Null);
with var_Item1 do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '<b><font ;14>B';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualHeight) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('C1',Null,Null) do
begin
Check := True;
Checked := True;
end;
with Add('C2',Null,Null) do
begin
Check := True;
Checked := False;
end;
with Add('C3',Null,Null) do
begin
Check := True;
Checked := True;
end;
end;
end;
end;
end;
Items.Add('',OleVariant(0),OleVariant(0)).Padding := '4,0,0,0';
var_Item2 := Items.Add('New Group',Null,Null);
with var_Item2 do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
with Add('',OleVariant(0),Null) do
begin
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSlider);
ItemHeight := 76;
EditBorder := EXTOOLBARLib_TLB.exEditBorderNone;
EditValue := OleVariant(25);
end;
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Button1',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '4,0,0,0';
with Add('Button2',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
Add('Item 6',Null,Null);
end;
end;
end;
end;
with Add('Popup',OleVariant(2),Null) do
begin
Alignment := EXTOOLBARLib_TLB.exCenter;
with Items do
begin
Add('Item 7',Null,Null).Check := True;
Add('Item 8',Null,Null);
with Add('Item 9',OleVariant(2),Null).Items do
begin
Add('Item 10',Null,Null);
Add('Item 11',Null,Null);
Add('Item 12',Null,Null);
end;
end;
end;
end;
end;
end;
end;
end;
end;
var_Item4 := Add('New Page',Null,Null);
with var_Item4 do
begin
ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' +
'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
ID := 300;
Caption := 'Page2';
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
with Items.Item[OleVariant(0)] do
begin
with Items do
begin
with Add('S1',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(25);
end;
with Add('S2',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(50);
end;
with Add('S3',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(75);
end;
end;
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
end;
end;
PopupFlatAppearance := False;
with VisualAppearance do
begin
Add(1,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn');
Add(2,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn');
Add(3,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn');
Add(4,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn');
Add(5,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn');
Add(6,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn');
Add(7,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn');
Add(8,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn');
Add(9,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn');
Add(10,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn');
Add(11,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn');
Add(12,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn');
Add(13,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn');
Add(14,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn');
Add(15,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn');
Add(16,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn');
Add(17,'CP:16 0 0 0 1');
Add(18,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn');
Add(19,'C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn');
Add(20,'CP:19 0 0 0 1');
end;
LocalAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Appearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
ForeColor := RGB(21,66,139);
SelBackColor := $e000000;
Background[EXTOOLBARLib_TLB.exToolTipAppearance] := Appearance;
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($2)] := $d000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameSingle] := $5000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHStart] := $6000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHIntermediate] := $7000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHEnd] := $8000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVStart] := $9000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVIntermediate] := $a000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVEnd] := $b000000;
Background[EXTOOLBARLib_TLB.exMenuHotBackColor] := $c000000;
Background[EXTOOLBARLib_TLB.exMenuSelHotBackColor] := $f000000;
Refresh();
end
|
|
186
|
Microsoft Office - Ribbon Like
with ToolBar1 do
begin
with Items do
begin
ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
with Item[OleVariant(0)].Items do
begin
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
var_Item3 := Add('New Page',Null,Null);
with var_Item3 do
begin
ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' +
'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
ID := 200;
Caption := 'Page1';
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
with Items.Item[OleVariant(0)] do
begin
var_Item := Items.Add('New Group',Null,Null);
with var_Item do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '<b><font ;14>A';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupEqualWidth) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('R1',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := False;
end;
with Add('R2',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := True;
end;
with Add('R3',Null,Null) do
begin
RadioGroup := 100;
Radio := True;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := False;
end;
end;
end;
end;
end;
var_Item1 := Items.Add('New Group',Null,Null);
with var_Item1 do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '<b><font ;14>B';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualHeight) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('C1',Null,Null) do
begin
Check := True;
Checked := True;
end;
with Add('C2',Null,Null) do
begin
Check := True;
Checked := False;
end;
with Add('C3',Null,Null) do
begin
Check := True;
Checked := True;
end;
end;
end;
end;
end;
Items.Add('',OleVariant(0),OleVariant(0)).Padding := '4,0,0,0';
var_Item2 := Items.Add('New Group',Null,Null);
with var_Item2 do
begin
ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
Caption := '';
with Items do
begin
BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
with Add('',OleVariant(0),Null) do
begin
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSlider);
ItemHeight := 76;
EditBorder := EXTOOLBARLib_TLB.exEditBorderNone;
EditValue := OleVariant(25);
end;
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Caption := '';
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Button1',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '4,0,0,0';
with Add('Button2',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
Add('Item 6',Null,Null);
end;
end;
end;
end;
with Add('Popup',OleVariant(2),Null) do
begin
Alignment := EXTOOLBARLib_TLB.exCenter;
with Items do
begin
Add('Item 7',Null,Null).Check := True;
Add('Item 8',Null,Null);
with Add('Item 9',OleVariant(2),Null).Items do
begin
Add('Item 10',Null,Null);
Add('Item 11',Null,Null);
Add('Item 12',Null,Null);
end;
end;
end;
end;
end;
end;
end;
end;
end;
var_Item4 := Add('New Page',Null,Null);
with var_Item4 do
begin
ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' +
'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
ID := 300;
Caption := 'Page2';
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
with Items.Item[OleVariant(0)] do
begin
with Items do
begin
with Add('S1',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(25);
end;
with Add('S2',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(50);
end;
with Add('S3',Null,Null) do
begin
ItemHeight := 88;
AllowEdit := Integer(EXTOOLBARLib_TLB.exItemEditVertical) Or Integer(EXTOOLBARLib_TLB.exItemEditSpin) Or Integer(EXTOOLBARLib_TLB.exItemEditProgress);
EditValue := OleVariant(75);
end;
end;
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
end;
end;
PopupFlatAppearance := False;
with VisualAppearance do
begin
Add(1,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn');
Add(2,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn');
Add(3,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn');
Add(4,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn');
Add(5,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn');
Add(6,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn');
Add(7,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn');
Add(8,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn');
Add(9,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn');
Add(10,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn');
Add(11,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn');
Add(12,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn');
Add(13,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn');
Add(14,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn');
Add(15,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn');
Add(16,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn');
Add(17,'CP:16 0 0 0 1');
Add(18,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn');
Add(19,'C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn');
Add(20,'CP:19 0 0 0 1');
end;
ForeColor := RGB(21,66,139);
SelBackColor := $e000000;
LocalAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Appearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
Background[EXTOOLBARLib_TLB.exToolTipAppearance] := Appearance;
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($2)] := $d000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameSingle] := $5000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHStart] := $6000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHIntermediate] := $7000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHEnd] := $8000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVStart] := $9000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVIntermediate] := $a000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVEnd] := $b000000;
Background[EXTOOLBARLib_TLB.exMenuHotBackColor] := $c000000;
Background[EXTOOLBARLib_TLB.exMenuSelHotBackColor] := $f000000;
Refresh();
end
|
|
185
|
How I can assign buttons to a tab
with ToolBar1 do
begin
Background[EXTOOLBARLib_TLB.exMenuSelBorderColor] := $f0f0f0;
with Items do
begin
ToString := '[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-1' +
'00]))';
with Item[OleVariant(-10)].Items do
begin
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
with Add('New Page',Null,Null) do
begin
ToString := '[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' +
'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
Caption := 'Page<off -5><font ;5><b>1</b></font></off>';
ID := -1000;
with Items.Item[OleVariant(0)].Items do
begin
Add('Button 1',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
Add('Button 2',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
Add('Button 3',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
end;
end;
with Add('New Page',Null,Null) do
begin
ToString := '[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' +
'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
Caption := 'Page<off -5><font ;5><b>2</b></font></off>';
ID := -1001;
with Items.Item[OleVariant(0)].Items do
begin
Add('Button 3',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
Add('Button 4',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
end;
end;
Add('',OleVariant(0),OleVariant(0)).Padding := '8,0,0,0';
end;
end;
Refresh();
end
|
|
184
|
How can I hide an item
with ToolBar1 do
begin
with Items do
begin
Add('Item 1',Null,Null).Visible := False;
Add('Item 2',Null,Null);
end;
Refresh();
end
|
|
183
|
How do I quickly load items into the control
with ToolBar1 do
begin
ToString := 'Check 1[chk],Check 2[chk=1]';
end
|
|
182
|
Are there any functions to get the size/width/height of the control so all items fit the control's client area
with ToolBar1 do
begin
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
end;
Refresh();
OutputDebugString( RequiredWidth );
OutputDebugString( RequiredHeight );
end
|
|
181
|
How do I get the item giving its caption
with ToolBar1 do
begin
with Items do
begin
Add('Item 1',Null,Null).ID := 1000;
Add('Item 2',Null,Null).ID := 1001;
end;
Item['Item 1'].Bold := True;
Refresh();
end
|
|
180
|
How do I get the item giving its identifier
with ToolBar1 do
begin
with Items do
begin
Add('Item 1',Null,Null).ID := 1000;
Add('Item 2',Null,Null).ID := 1001;
end;
Item[OleVariant(1000)].Bold := True;
Refresh();
end
|
|
179
|
Can I change the cursor where it hovers the item
with ToolBar1 do
begin
Cursor := 'exCross';
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null).Cursor := 'exNoDrop';
end;
Refresh();
end
|
|
178
|
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group
with ToolBar1 do
begin
AllowToggleRadio := True;
with Items do
begin
with Add('Radio 1',Null,OleVariant(1000)) do
begin
Radio := True;
RadioGroup := 100;
end;
with Add('Radio 2',Null,OleVariant(1001)) do
begin
Radio := True;
RadioGroup := 100;
end;
with Add('Radio 2',Null,OleVariant(1003)) do
begin
Radio := True;
RadioGroup := 100;
end;
end;
Refresh();
end
|
|
177
|
Is it possible to display the item's identifiers
with ToolBar1 do
begin
Debug := True;
with Items do
begin
Add('Item 1',Null,Null).ID := 10001;
Add('Item 2',Null,Null).ID := 10002;
end;
Refresh();
end
|
|
176
|
How do I disable showing the tooltip for all control (method 2)
with ToolBar1 do
begin
AllowToolTip := False;
with Items do
begin
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
end;
Refresh();
end
|
|
175
|
How can I lock the control, so no events occur, but no shown in gray as Enabled do
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'SelectItem should not be fired while locked' );
end
end;
with ToolBar1 do
begin
Locked := True;
with Items do
begin
Add('Disabled',Null,Null).Enabled := False;
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
Refresh();
end
|
|
174
|
How can I disable the control
with ToolBar1 do
begin
Enabled := False;
with Items do
begin
Add('Disabled',Null,Null).Enabled := False;
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
Refresh();
end
|
|
173
|
How can I specify a different border/visual appearance for drop down portion of the popup menu (ebn)
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
PopupAppearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
with Items do
begin
with Add('Popup 1',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null).Check := True;
Add('Item 2',Null,Null).Check := True;
Add('Item 3',Null,Null).Check := True;
end;
with Add('Popup 2',OleVariant(2),Null).Items do
begin
Add('Item 4',Null,Null).Check := True;
Add('Item 5',Null,Null).Check := True;
Add('Item 6',Null,Null).Check := True;
end;
end;
Refresh();
end
|
|
172
|
How can I specify a different border for drop down portion of the popup menu
with ToolBar1 do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
with Items do
begin
with Add('Popup 1',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null).Check := True;
Add('Item 2',Null,Null).Check := True;
Add('Item 3',Null,Null).Check := True;
end;
with Add('Popup 2',OleVariant(2),Null).Items do
begin
Add('Item 4',Null,Null).Check := True;
Add('Item 5',Null,Null).Check := True;
Add('Item 6',Null,Null).Check := True;
end;
end;
Refresh();
end
|
|
171
|
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
LocalAppearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
Add('Item 6',Null,Null);
end;
end;
end;
end;
end;
Refresh();
end
|
|
170
|
How can I specify a different border for drop down portion of the select buttons/combobox
with ToolBar1 do
begin
LocalAppearance := EXTOOLBARLib_TLB.ShadowBorder;
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
Add('Item 6',Null,Null);
end;
end;
end;
end;
end;
Refresh();
end
|
|
169
|
How can I change the visual appearance for the entire control
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemCheckHighlight;
with Items do
begin
Padding := '4,4,4,4';
with Add('Radio 1',Null,Null) do
begin
Radio := True;
Checked := True;
end;
Add('Radio 2',Null,Null).Radio := True;
Add('Radio 3',Null,Null).Radio := True;
end;
Refresh();
end
|
|
168
|
How can I show a border arround the control
with ToolBar1 do
begin
Appearance := EXTOOLBARLib_TLB.FlatBorder;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemCheckHighlight;
with Items do
begin
Padding := '4,4,4,4';
with Add('Check 1',Null,Null) do
begin
Checked := True;
Check := True;
end;
with Add('Check 2',Null,Null) do
begin
Check := True;
end;
end;
Refresh();
end
|
|
167
|
Is it possible to change the item's background color when check/uncheck the item
with ToolBar1 do
begin
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemCheckHighlight;
with Items do
begin
Padding := '4,4,4,4';
with Add('Check 1',Null,Null) do
begin
Checked := True;
Check := True;
end;
with Add('Check 2',Null,Null) do
begin
Check := True;
end;
end;
Refresh();
end
|
|
166
|
How can I change the colors for hot/hover items
with ToolBar1 do
begin
Background[EXTOOLBARLib_TLB.exMenuHotBackColor] := $10000;
Background[EXTOOLBARLib_TLB.exMenuHotForeColor] := $ffffff;
Background[EXTOOLBARLib_TLB.exMenuSelHotBackColor] := $808080;
Background[EXTOOLBARLib_TLB.exMenuSelHotForeColor] := $ffffff;
SelBackColor := RGB(128,128,128);
SelForeColor := RGB(255,255,255);
Background[EXTOOLBARLib_TLB.exMenuSelBorderColor] := $808080;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemCheckHighlight;
with Items do
begin
Padding := '4,4,4,4';
Add('',Null,Null).ToString := '[group=3](Item 1,Item 2)';
with Add('Check 1',Null,Null) do
begin
Checked := True;
Check := True;
end;
with Add('Check 2',Null,Null) do
begin
Check := True;
end;
end;
Refresh();
end
|
|
165
|
How do I change the visual appearance of the groups (vertical)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
Add(3,'c:\exontrol\images\hot.ebn');
end;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameSingle] := $1000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVStart] := $1000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVIntermediate] := $2000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameVEnd] := $3000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameSolid] := $ff;
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Vertical',OleVariant(2),Null) do
begin
Alignment := EXTOOLBARLib_TLB.exCenter;
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
end;
end;
Add('',Null,Null).CaptionWidth := 12;
with Add('Vertical',OleVariant(2),Null) do
begin
Alignment := EXTOOLBARLib_TLB.exCenter;
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exGroupPopupFrameThickBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopupFrameSolidBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
end;
end;
end;
end;
end;
Refresh();
end
|
|
164
|
How do I change the visual appearance of the groups (horizontal)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
Add(3,'c:\exontrol\images\hot.ebn');
end;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameSingle] := $1000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHStart] := $1000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHIntermediate] := $2000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameHEnd] := $3000000;
Background[EXTOOLBARLib_TLB.exGroupPopupFrameSolid] := $ff;
with Items do
begin
with Add('Horizontal Group',OleVariant(2),Null) do
begin
GroupPopup := EXTOOLBARLib_TLB.exGroupPopup;
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)';
end;
Refresh();
end
|
|
163
|
How can I change the visual appearance of the separator item
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Background[EXTOOLBARLib_TLB.exMenuSeparatorItem] := $1000000;
with Items do
begin
Add('Item',Null,Null).CaptionWidth := 128;
Add('',OleVariant(1),Null);
Add('Item',Null,Null).CaptionWidth := 128;
Add('',Null,Null).ToString := '<font ;5>separator[sep]';
end;
Refresh();
end
|
|
162
|
How can I change the visual appearance of the drop down of the control (normal.2)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
PopupFlatImageWidth := 0;
with Items do
begin
with Add('Popup',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null).Check := True;
Add('Item 2',Null,Null).Check := True;
Add('Item 3',Null,Null).Check := True;
PopupAppearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
end;
end;
Refresh();
end
|
|
161
|
How can I change the visual appearance of the drop down of the control (normal.1)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
PopupFlatAppearance := False;
with Items do
begin
with Add('Popup',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null).Check := True;
Add('Item 2',Null,Null).Check := True;
Add('Item 3',Null,Null).Check := True;
PopupAppearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
end;
end;
Refresh();
end
|
|
160
|
How can I change the visual appearance of the drop down of the control (flat)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
PopupFlatBackColor := $2000000;
Background[EXTOOLBARLib_TLB.exMenuFlatLineColor] := PopupFlatBackColor;
with Items do
begin
with Add('Popup',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null).Check := True;
Add('Item 2',Null,Null).Check := True;
Add('Item 3',Null,Null).Check := True;
PopupAppearance := EXTOOLBARLib_TLB.ToolBarAppearanceEnum($1000000);
end;
end;
Refresh();
end
|
|
159
|
How can I change the visual appearance of the flat portion of the drop down of the control
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
PopupFlatBackColor := $1000000;
Background[EXTOOLBARLib_TLB.exMenuFlatLineColor] := PopupFlatBackColor;
with Items do
begin
with Add('Popup',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null).Check := True;
Add('Item 2',Null,Null).Check := True;
Add('Item 3',Null,Null).Check := True;
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
end;
end;
Refresh();
end
|
|
158
|
How can I change the visual appearance of the radio-buttons to be displayed in the toolbar control (ebn)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
Background[EXTOOLBARLib_TLB.exRadioButtonState0] := $1000000;
Background[EXTOOLBARLib_TLB.exRadioButtonState1] := $2000000;
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := EXTOOLBARLib_TLB.exGroupPopup;
with Items do
begin
with Add('Radio 1',Null,OleVariant(1000)) do
begin
Radio := True;
RadioGroup := 100;
end;
with Add('Radio 2',Null,OleVariant(1001)) do
begin
Radio := True;
RadioGroup := 100;
end;
with Add('Radio 2',Null,OleVariant(1003)) do
begin
Radio := True;
RadioGroup := 100;
end;
Item[OleVariant(1000)].Checked := True;
end;
end;
end;
Refresh();
end
|
|
157
|
How can I change the visual appearance of the check-boxes to be displayed in the toolbar control (ebn)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
Background[EXTOOLBARLib_TLB.exCheckBoxState0] := $1000000;
Background[EXTOOLBARLib_TLB.exCheckBoxState1] := $2000000;
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Check 1',Null,Null) do
begin
Check := True;
Checked := True;
end;
Add('Check 2',Null,Null).Check := True;
end;
end;
end;
Refresh();
end
|
|
156
|
How can I change the visual appearance of the tooltips to be displayed in the toolbar control (ebn)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
ToolTipDelay := 1;
Background[EXTOOLBARLib_TLB.exToolTipAppearance] := $1000000;
Background[EXTOOLBARLib_TLB.exToolTipForeColor] := $ff;
with Items do
begin
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
end;
Refresh();
end
|
|
155
|
Is it possible to change the visual appearance of the buttons to be displayed in the toolbar control (ebn)
with ToolBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'c:\exontrol\images\pushed.ebn');
end;
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($2)] := $1000000;
Background[EXTOOLBARLib_TLB.BackgroundPartEnum($3)] := $2000000;
Background[EXTOOLBARLib_TLB.exMenuSeparatorSelectButton] := $ff;
Background[EXTOOLBARLib_TLB.exMenuSeparatorSelectButtonBottom] := $ff0000;
with Items do
begin
Padding := '4,4,4,4';
Add('Button',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
with Add('',Null,Null) do
begin
Enabled := False;
ItemHeight := 4;
end;
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
with Add('',Null,Null) do
begin
Enabled := False;
ItemHeight := 4;
end;
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButton) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
end;
Refresh();
end
|
|
154
|
I've seen that the width of the tooltip is variable. Can I make it larger
with ToolBar1 do
begin
ToolTipWidth := 328;
with Items do
begin
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
end;
Refresh();
end
|
|
153
|
How do I disable showing the tooltip for all control (method 1)
with ToolBar1 do
begin
ToolTipDelay := 0;
with Items do
begin
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
end;
Refresh();
end
|
|
152
|
How do I let the tooltip being displayed longer
with ToolBar1 do
begin
ToolTipPopDelay := 10000;
with Items do
begin
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
end;
Refresh();
end
|
|
151
|
How do I show the tooltip quicker
with ToolBar1 do
begin
ToolTipDelay := 1;
with Items do
begin
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
Add('Item',Null,Null).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
end;
Refresh();
end
|
|
150
|
How can I get the version of the control I am running
with ToolBar1 do
begin
OutputDebugString( Version );
end
|
|
149
|
How can I align the picture on the control's background
with ToolBar1 do
begin
Picture := (IUnknown(ToolBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)')) as _TLB.Object);
PictureDisplay := EXTOOLBARLib_TLB.UpperRight;
with Items do
begin
Add('Item',Null,Null);
Add('Item',Null,Null);
end;
Refresh();
end
|
|
148
|
Is it possible to place a picture on the control's background
with ToolBar1 do
begin
Picture := (IUnknown(ToolBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)')) as _TLB.Object);
with Items do
begin
Add('Item',Null,Null);
Add('Item',Null,Null);
end;
Refresh();
end
|
|
147
|
How can I display the item using a different font/size
with ToolBar1 do
begin
with Items do
begin
Add('',Null,Null).Caption := '<font ;14>This is a bit of text';
Add('<font ;6>This is a bit of text',Null,Null);
Add('',Null,Null).Caption := '<font Times New Roman;22>This is a bit of text</font>. Default';
end;
Refresh();
end
|
|
146
|
How can I use the Event event, available for /COM version
// Event event - Notifies the application once the control fires an event.
procedure TForm1.ToolBar1Event(ASender: TObject; EventID : Integer);
begin
with ToolBar1 do
begin
OutputDebugString( 'Event' );
OutputDebugString( EventParam[-2] );
end
end;
with ToolBar1 do
begin
with Items do
begin
Add('Check',Null,Null).Check := True;
with Add('Slider',Null,Null) do
begin
AllowEdit := EXTOOLBARLib_TLB.exItemEditSlider;
EditWidth := 128;
EditBorder := EXTOOLBARLib_TLB.exEditBorderNone;
EditValue := OleVariant(25);
end;
end;
Refresh();
end
|
|
145
|
Is it possible to get notified once the user edits the field, or change the slider value
// EditChange event - Occurs when the user alters the item's text box field.
procedure TForm1.ToolBar1EditChange(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'EditChange event on Itm object' );
end
end;
with ToolBar1 do
begin
with Items do
begin
with Add('Item',Null,Null) do
begin
AllowEdit := EXTOOLBARLib_TLB.exItemEditSlider;
EditWidth := 128;
EditBorder := EXTOOLBARLib_TLB.exEditBorderNone;
EditValue := OleVariant(25);
end;
end;
Refresh();
end
|
|
144
|
How do I get notified once I uncheck an item
// UncheckItem event - Occurs when the user unchecks the item.
procedure TForm1.ToolBar1UncheckItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'UncheckItem event on Itm object' );
end
end;
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Check := True;
Add('Item',Null,Null).Check := True;
end;
Refresh();
end
|
|
143
|
How do I get notified once I check an item
// CheckItem event - Occurs when the user checks the item.
procedure TForm1.ToolBar1CheckItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'CheckItem event on Itm object' );
end
end;
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Check := True;
Add('Item',Null,Null).Check := True;
end;
Refresh();
end
|
|
142
|
How do I get notified once I click/select an item
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'SelectItem event on Itm object' );
end
end;
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null);
Add('Item',Null,Null);
end;
Refresh();
end
|
|
141
|
Does your control support padding for items
with ToolBar1 do
begin
PopupFlatAppearance := False;
with Items do
begin
Padding := '2,12,2,2';
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
BackColor := $ffffff;
BackgroundExt := 'root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])';
end;
Refresh();
end
|
|
140
|
How can I display the drop down popup to a different position ( method 2 )
with ToolBar1 do
begin
with Items do
begin
with Add('Popup',OleVariant(2),OleVariant(100)) do
begin
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
ShowPopupArrow := False;
ShowPopupOffset := '-12,-48';
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.RaisedBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
end;
Refresh();
end
|
|
139
|
How can I display the drop down popup to a different position ( method 1 )
with ToolBar1 do
begin
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := EXTOOLBARLib_TLB.exGroupPopup;
with Items do
begin
with Add('Popup 1',OleVariant(2),OleVariant(100)) do
begin
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
ShowPopupArrow := False;
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.RaisedBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
with Add('Popup 2',OleVariant(2),OleVariant(200)) do
begin
ShowPopupAt := 100;
ShowPopupArrow := False;
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.RaisedBorder;
Add('Item 4',Null,Null);
Add('Item 5',Null,Null);
Add('Item 6',Null,Null);
end;
end;
end;
end;
end;
Refresh();
end
|
|
138
|
Is it possible to show the popup bellow to the item, rather than on the right side
with ToolBar1 do
begin
with Items do
begin
with Add('Popup',OleVariant(2),Null) do
begin
ShowPopupAlign := EXTOOLBARLib_TLB.exShowPopupAlignDown;
ShowPopupArrow := False;
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.FlatBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Popup[arrow=0][popupalign=1][popupapp=1](Item 1,Item 2,Item 3)';
end;
Refresh();
end
|
|
137
|
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
HotBackColor := $1000000;
Padding := '4,8,4,8';
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)';
end;
Refresh();
end
|
|
136
|
How can I change the background color for items, when cursor hovers it (hot)
with ToolBar1 do
begin
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
HotBackColor := $ff;
Padding := '0,8,0,8';
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := '[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)';
end;
Refresh();
end
|
|
135
|
How can I change the visual appearance for items (EBN)
with ToolBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
BackColor := $1000000;
Padding := '4,8,4,8';
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)';
end;
Refresh();
end
|
|
134
|
How can I change the background color for items
with ToolBar1 do
begin
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
BackColor := $ff;
Padding := '0,8,0,8';
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := '[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)';
end;
Refresh();
end
|
|
133
|
Is it possible to hide the popup's arrow
with ToolBar1 do
begin
with Items do
begin
with Add('Popup',OleVariant(2),Null) do
begin
ShowPopupArrow := False;
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Popup[arrow=0][popupapp=6](Item 1,Item 2,Item 3)';
end;
Refresh();
end
|
|
132
|
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)
with ToolBar1 do
begin
PopupFlatImageWidth := 0;
with Items do
begin
with Add('Popup',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
end;
end;
Refresh();
end
|
|
131
|
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)
with ToolBar1 do
begin
PopupFlatAppearance := False;
with Items do
begin
with Add('Popup',OleVariant(2),Null).Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
end;
end;
Refresh();
end
|
|
130
|
How can I arrange the drop down item from left to right, rather than top to bottom
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'Clicked' );
end
end;
with ToolBar1 do
begin
PopupFlatAppearance := False;
with Items do
begin
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
end;
end;
Add('',Null,Null).ToString := 'Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))';
end;
Refresh();
end
|
|
129
|
How can I add a drop down button / combobox (method 2)
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'Clicked' );
end
end;
with ToolBar1 do
begin
with Items do
begin
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButtonBottom) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
end;
Refresh();
end
|
|
128
|
How can I add a drop down button / combobox (method 1)
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'Clicked' );
end
end;
with ToolBar1 do
begin
with Items do
begin
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButton) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
end;
Refresh();
end
|
|
127
|
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'Clicked' );
end
end;
with ToolBar1 do
begin
with Items do
begin
with Add('Button',OleVariant(2),Null) do
begin
ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsSelectButton) Or Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize);
with Items do
begin
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
end;
Refresh();
end
|
|
126
|
How can I add a button (push button)
// SelectItem event - Occurs when the user selects the item.
procedure TForm1.ToolBar1SelectItem(ASender: TObject; Itm : IItem);
begin
with ToolBar1 do
begin
OutputDebugString( 'Clicked' );
end
end;
with ToolBar1 do
begin
with Items do
begin
Add('Button',Null,Null).ShowAsButton := Integer(EXTOOLBARLib_TLB.exShowAsButtonAutoSize) Or Integer(EXTOOLBARLib_TLB.exShowAsButton);
Add('',Null,Null).ToString := 'Button[button=0x03]';
end;
Refresh();
end
|
|
125
|
How can I display grouping items with no frame arround
with ToolBar1 do
begin
with Items do
begin
with Add('Horizontal Group',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupFrameThickBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopupFrameSolidBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualHeight) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualWidth) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('A',Null,Null).Alignment := EXTOOLBARLib_TLB.exCenter;
Add('BC',Null,Null).Alignment := EXTOOLBARLib_TLB.exCenter;
Add('D',Null,Null).Alignment := EXTOOLBARLib_TLB.exCenter;
end;
end;
Add('',Null,Null).ToString := 'Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])';
end;
Refresh();
end
|
|
124
|
How can I display grouping items of the same size/width/height
with ToolBar1 do
begin
with Items do
begin
with Add('Horizontal Group',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupFrameThickBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopupFrameSolidBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualHeight) Or Integer(EXTOOLBARLib_TLB.exGroupPopupEqualWidth) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('A',Null,Null).Alignment := EXTOOLBARLib_TLB.exCenter;
Add('BC',Null,Null).Alignment := EXTOOLBARLib_TLB.exCenter;
Add('D',Null,Null).Alignment := EXTOOLBARLib_TLB.exCenter;
end;
end;
Add('',Null,Null).ToString := 'Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])';
end;
Refresh();
end
|
|
123
|
Is it possible to display a ticker frame arround grouping items
with ToolBar1 do
begin
with Items do
begin
with Add('Horizontal Group',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupFrameThickBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopupFrameSolidBox) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
end;
Refresh();
end
|
|
122
|
How do I display items horizontally arranged
with ToolBar1 do
begin
with Items do
begin
with Add('Horizontal Group',OleVariant(2),Null) do
begin
GroupPopup := EXTOOLBARLib_TLB.exGroupPopup;
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
end;
end;
Add('',Null,Null).ToString := 'Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
end;
Refresh();
end
|
|
121
|
Is it possible to expand an item when it is clicked (tree,group,vertical)
with ToolBar1 do
begin
with Items do
begin
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Padding := '22,0,0,0';
Add('Radio 1',Null,Null).Radio := True;
Add('Radio 2',Null,Null).Radio := True;
with Add('Radio 3',Null,Null) do
begin
Radio := True;
Checked := True;
end;
end;
Checked := True;
end;
Add('',Null,Null).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' +
'][chk=1])';
end;
Refresh();
end
|
|
120
|
Is it possible to expand an item when it is clicked (tree,group,vertical)
with ToolBar1 do
begin
with Items do
begin
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupVertical) Or Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Padding := '22,0,0,0';
Add('Radio 1',Null,Null).Radio := True;
Add('Radio 2',Null,Null).Radio := True;
with Add('Radio 3',Null,Null) do
begin
Radio := True;
Checked := True;
end;
end;
Checked := True;
end;
end;
Refresh();
end
|
|
119
|
Is it possible to expand an item when it is clicked (group)
with ToolBar1 do
begin
with Items do
begin
with Add('Expand',OleVariant(2),Null) do
begin
GroupPopup := EXTOOLBARLib_TLB.exGroupPopup;
ItemHeight := 24;
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
end;
end;
end;
Refresh();
end
|
|
118
|
Is it possible to extend an item when it is clicked
with ToolBar1 do
begin
with Items do
begin
with Add('Expand',OleVariant(2),Null) do
begin
Check := True;
ShowPopupOnChecked := True;
with Items do
begin
Add('Item 1',Null,Null);
Add('Item 2',Null,Null);
Add('Item 3',Null,Null);
PopupAppearance := EXTOOLBARLib_TLB.ShadowBorder;
end;
end;
end;
Refresh();
end
|
|
117
|
Does your control implement padding for item
with ToolBar1 do
begin
with Items do
begin
BackColor := $fafafa;
Add('Item',Null,Null).Padding := '4,4,4,4';
Add('',Null,Null).ToString := 'Item[pad=4,4,4,4]';
end;
Refresh();
end
|
|
116
|
How can I add an empty item for a horizontal group
with ToolBar1 do
begin
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
Add('Item 1',Null,Null);
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupCenter) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
ItemHeight := 12;
with Items.Add('',Null,Null) do
begin
Enabled := False;
ItemHeight := 8;
CaptionWidth := 8;
end;
end;
Add('Item 2',Null,Null);
end;
end;
end;
Refresh();
end
|
|
115
|
How can I add an empty/separator item
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null);
with Add('',Null,Null) do
begin
Enabled := False;
ItemHeight := 2;
CaptionWidth := 8;
BackColor := $f0f0f0;
end;
Add('Item',Null,Null);
end;
Refresh();
end
|
|
114
|
How can I add an empty/frame item
with ToolBar1 do
begin
with Items do
begin
Add('Item 1',Null,Null);
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exGroupPopupCenter) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
ItemHeight := 12;
with Items.Add('',Null,Null) do
begin
Enabled := False;
ItemHeight := 8;
CaptionWidth := 8;
end;
end;
Add('Item 2',Null,Null);
end;
Refresh();
end
|
|
113
|
How can I specify the height of the item
with ToolBar1 do
begin
with Items do
begin
BackColor := $fafafa;
Add('Item',Null,Null).ItemHeight := 64;
Add('',Null,Null).ToString := 'Item[height=64]';
end;
Refresh();
end
|
|
112
|
How can I specify the width of the item
with ToolBar1 do
begin
with Items do
begin
BackColor := $fafafa;
Add('Item',Null,Null).CaptionWidth := 128;
Add('',Null,Null).ToString := 'Item[captionwidth=128]';
end;
Refresh();
end
|
|
111
|
How do I align the item
with ToolBar1 do
begin
with Items do
begin
BackColor := $fafafa;
Add('Item',Null,Null);
with Add('Item',Null,Null) do
begin
Alignment := EXTOOLBARLib_TLB.exCenter;
CaptionWidth := 128;
end;
with Add('Item',Null,Null) do
begin
Alignment := EXTOOLBARLib_TLB.exRight;
CaptionWidth := 128;
end;
Add('',Null,Null).ToString := 'Item[align=1]';
end;
Refresh();
end
|
|
110
|
How can I underline the item
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Underline := True;
Add('<u>Item</u>',Null,Null);
Add('',Null,Null).ToString := 'Item[und]';
end;
Refresh();
end
|
|
109
|
How can I show the item as strikeout
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Strikeout := True;
Add('<s>Item</s>',Null,Null);
Add('',Null,Null).ToString := 'Item[stk]';
end;
Refresh();
end
|
|
108
|
How can I show the item in italics
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Italic := True;
Add('<i>Item</i>',Null,Null);
Add('',Null,Null).ToString := 'Item[itl]';
end;
Refresh();
end
|
|
107
|
How can I show the item in bold
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Bold := True;
Add('<b>Item</b>',Null,Null);
Add('',Null,Null).ToString := 'Item[bld]';
end;
Refresh();
end
|
|
106
|
How can I show the item as disabled but still be able to select or use it
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).ShowAsDisabled := True;
Add('',Null,Null).ToString := 'Item[showdis=1]';
end;
Refresh();
end
|
|
105
|
How can I enable or disable an item
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).Enabled := False;
Add('',Null,Null).ToString := 'Item[dis]';
end;
Refresh();
end
|
|
104
|
How can I add a separator item
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).CaptionWidth := 128;
Add('<font ;6>separator',OleVariant(1),Null);
Add('Item',Null,Null).CaptionWidth := 128;
Add('',Null,Null).ToString := '<font ;6>separator[sep]';
end;
Refresh();
end
|
|
103
|
How can I change the item's foreground color
with ToolBar1 do
begin
with Items do
begin
Add('Item',Null,Null).ForeColor := $ff;
Add('<fgcolor FF0000>Item',Null,Null);
Add('',Null,Null).ToString := 'Item[fg=RGB(255,0,0)]';
end;
Refresh();
end
|
|
102
|
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)
with ToolBar1 do
begin
with Items do
begin
with Add('',OleVariant(2),Null) do
begin
GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup);
with Items do
begin
with Add('Radio 1',Null,Null) do
begin
HotBackColor := $ffffff;
SelBackColor := $ff;
SelHotBackColor := $ff;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Radio := True;
RadioGroup := 100;
Checked := True;
end;
with Add('Radio 2',Null,Null) do
begin
HotBackColor := $ffffff;
SelBackColor := $ff;
SelHotBackColor := $ff;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Radio := True;
RadioGroup := 100;
end;
Add('',Null,Null).ToString := 'Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]';
end;
end;
end;
Refresh();
end
|
|
101
|
How can I change the item's background/backcolor, when the item is selected/checked (check-box)
with ToolBar1 do
begin
with Items do
begin
with Add('Check 1',Null,Null) do
begin
HotBackColor := $ffffff;
SelBackColor := $ff;
SelHotBackColor := $ff;
ShowCheckedAsSelected := EXTOOLBARLib_TLB.exDisplayItemHighlight;
Checked := True;
Check := True;
end;
Add('',Null,Null).ToString := 'Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]';
end;
Refresh();
end
|